data is from NIPA tables (table 2.1 and table 2.5.5)

data_processing.do produces Figure 4a